home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 121 / Computer Shopper 121 / Computer Shopper 121.iso / HomeBus / Turbocad / TCW.Z / calculator.bas < prev    next >
Encoding:
BASIC Source File  |  1997-05-05  |  302 b   |  13 lines
  1. sub main()
  2.     
  3.     Title$ = "TCAPI Calculator"
  4.     Prompt$ = "Enter a valid Enable Basic numeric expression. (e.g. " & Chr(34) & "sqr(47) / 2" & Chr(34)
  5.     Default$ = ""
  6.  
  7.     E$ = InputBox$(Prompt$, Title$, Default$)
  8.     If E$ <> "" Then
  9.         TCWBasicRun "A# = " & E$ & Chr(10) & "MsgBox A#"
  10.     End If
  11. end sub
  12.  
  13.